home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
TOLL20.ZIP
/
TOOLDEMO.FRM
< prev
next >
Wrap
Text File
|
1993-01-30
|
18KB
|
686 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00C0C0C0&
Caption = "ToolButton Demo"
ForeColor = &H00C0C0C0&
Height = 2676
HelpContextID = 101
Icon = TOOLDEMO.FRX:0000
Left = 1068
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 1932
ScaleWidth = 4800
Top = 1272
Width = 4896
Begin ContextHelp ContextHelp1
Enabled = 0 'False
Left = 4110
Tag = "Left click for help, Esc to cancel"
Top = 1290
End
Begin TextBox Text1
Height = 825
HelpContextID = 103
Left = -15
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
TabStop = 0 'False
Text = "Text1"
Top = 420
Width = 4800
End
Begin Line Line1
BorderColor = &H00808080&
Index = 1
X1 = 0
X2 = 4755
Y1 = 405
Y2 = 405
End
Begin Line Line1
BorderColor = &H00FFFFFF&
Index = 0
X1 = 0
X2 = 4755
Y1 = 0
Y2 = 0
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 200
HintMessage = "Clears the TextBox"
Index = 0
Left = 96
StandardButton = 4 'File New
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 201
HintMessage = "Reads a file into the TextBox"
Index = 1
Left = 432
StandardButton = 5 'File Open
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 202
HintMessage = "Saves the TextBox to a file"
Index = 2
Left = 780
StandardButton = 6 'File Save
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Enabled = 0 'False
Height = 264
HelpContextID = 203
HintMessage = "Prints the textbox (NOT IMPLEMENTED)"
Index = 3
Left = 1128
StandardButton = 7 'File Print
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 204
HintMessage = "Cuts the selection to the clipboard"
Index = 4
Left = 1572
StandardButton = 1 'Edit Cut
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 205
HintMessage = "Copies the selection to the clipboard"
Index = 5
Left = 1920
StandardButton = 2 'Edit Copy
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 206
HintMessage = "Replaces the selection with the clipboard contents"
Index = 6
Left = 2268
StandardButton = 3 'Edit Paste
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
ButtonSource = 1 'Custom
ButtonType = 1 'Attribute
CustomButton = 1
CustomCount = 3
Height = 264
HelpContextID = 207
HintMessage = "Sets the TextBox FontBold attribute"
Index = 7
Left = 2712
Picture = TOOLDEMO.FRX:0302
StandardButton = 5 'File Open
Top = 48
Value = 1 'Down
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
ButtonSource = 1 'Custom
ButtonType = 1 'Attribute
Height = 264
HelpContextID = 208
HintMessage = "Sets the TextBox FontItalic attribute"
Index = 8
Left = 3060
StandardButton = 3 'Edit Paste
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
ButtonSource = 1 'Custom
ButtonType = 1 'Attribute
Height = 264
HelpContextID = 209
HintMessage = "Sets the TextBox FontUnderline attribute"
Index = 9
Left = 3408
StandardButton = 3 'Edit Paste
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 210
HintMessage = "Enables context-sensitive help"
Index = 10
Left = 3852
StandardButton = 9 'Context-Sensitive Help
Top = 48
Width = 288
End
Begin ToolButton ToolButton
BackColor = &H8000000F&
Height = 264
HelpContextID = 211
HintMessage = "Displays the ToolButton help contents"
Index = 11
Left = 4200
StandardButton = 8 'Help
Top = 48
Width = 288
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Label1"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 7.8
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Left = 45
TabIndex = 1
Top = 1335
Width = 690
End
Begin Menu ABFile
Caption = "&File"
Begin Menu MIFileNew
Caption = "&New"
End
Begin Menu MIFileOpen
Caption = "&Open..."
Shortcut = +{F12}
End
Begin Menu MIFileSaveAs
Caption = "&Save As..."
Shortcut = {F12}
End
Begin Menu MIFileSep1
Caption = "-"
End
Begin Menu MIFilePrint
Caption = "&Print"
Enabled = 0 'False
End
Begin Menu MIFileSep2
Caption = "-"
End
Begin Menu MIFileExit
Caption = "E&xit"
End
End
Begin Menu ABEdit
Caption = "&Edit"
Begin Menu MIEditCut
Caption = "Cu&t"
Shortcut = ^X
End
Begin Menu MIEditCopy
Caption = "&Copy"
Shortcut = ^C
End
Begin Menu MIEditPaste
Caption = "&Paste"
Shortcut = ^V
End
End
Begin Menu ABFont
Caption = "F&ont"
Begin Menu MIFontBold
Caption = "&Bold"
Shortcut = ^B
End
Begin Menu MIFontItalic
Caption = "&Italic"